home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / pslabel (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  3KB  |  92 lines
  1. 1 REM  PRINT SHOP LABEL MAKER
  2. 2 REM  BY BRIAN HEYBOER  12/1/85
  3. 3 REM  THIS PROGRAM IS PUBLIC DOMAIN.
  4. 4 REM  THIS PROGRAM CONTAINS BASIC AND
  5. 5 REM  MACHINE LANGUAGE.  EDITING OR
  6. 6 REM  OTHERWISE CHANGING POINTERS MAY
  7. 7 REM  AFFECT PROGRAM EXECUTION IN
  8. 8 REM  UNPREDICTABLE WAYS
  9. 9 IFLC THEN SYS 4850:GOTO 510
  10. 10 PRINT"[147]    [208]RINT [211]HOP [199]RAPHICS [204]ABEL [205]AKER":PRINT"          [194]Y [194]RIAN [200]EYBOER
  11. 20 [153]"(null)HIS PROGRAM PRINTS STANDARD ONE INCH"
  12. 30 [153]"MAILING LABELS USING (null)RINT (null)HOP CHR$RAPHICS
  13. 40 PRINT"[145]AND TEXT OF YOUR CHOICE ON AN [197]PSON OR
  14. 50 [153]"COMPATABLE PRINTER.
  15. 60 PRINT"[212]HIS PROGRAM IS PUBLIC DOMAIN.
  16. 70 [153]"(null)RINT (null)HOP IS A TRADEMARK OF PEEKRODERBUND.
  17. 80 PRINT"[197]PSON IS A TRADEMARK OF [197]PSON [193]MERICA.
  18. 90 [153]"      (null)RESS ANY KEY WHEN READY.
  19. 95 GETX$:IFX$=""THEN95
  20. 100 DIM X%(56,11),Y%(6,87),L$(6),F$(6),FS$(9)
  21. 110 E$=CHR$(27)
  22. 120 FS$(0)=E$+CHR$(69)
  23. 130 FS$(1)=FS$(0)+CHR$(14)
  24. 140 FS$(2)=CHR$(15)
  25. 150 FS$(3)=FS$(0)+E$+CHR$(83)+CHR$(0)
  26. 160 FS$(4)=FS$(0)+E$+CHR$(83)+CHR$(1)
  27. 170 FS$(5)=FS$(0)+E$+CHR$(52)
  28. 180 FS$(6)=FS$(1)+FS$(5)
  29. 190 FS$(7)=FS$(2)+E$+CHR$(52)
  30. 200 FS$(8)=FS$(3)+FS$(5)
  31. 210 FS$(9)=FS$(4)+FS$(5)
  32. 220 EL$=E$+CHR$(84)+E$+CHR$(53)+CHR$(18)+E$+CHR$(70)+CHR$(10)+CHR$(13)
  33. 230 PRINT"[147]    [208]RINT [211]HOP [199]RAPHICS [204]ABEL [205]AKER":PRINT
  34. 240 PRINT"[199]RAPHIC [198]ILE [206]AME ($ FOR [196]IRECTORY)
  35. 250 LC[178]0:[133] G$:[139] G$[178]"$"[167][141]750
  36. 260 [153]"RIGHT$NPUT (null)ABEL (null)EXT.  ASCOR BEST RESULTS,"
  37. 270 [153]"SKIP ALTERNATE LINES. ((null)SE 0,2,4,6 FOR
  38. 280 PRINT"FOUR LINE LABELS AND 1,3,5 FOR THREE
  39. 290 [153]"LINES.  (null)INES WITH COMMAS OR COLONS MUST
  40. 300 PRINT"[145]BE IN QUOTES.
  41. 310 [153]"ATNVAILABLE ASCONTS:
  42. 320 PRINT"   0 = [206]ORMAL
  43. 330 [153]"   1 = VALXPANDED
  44. 340 PRINT"   2 = [195]ONDENSED
  45. 350 [153]"   3 = (null)UPERSCRIPT
  46. 360 PRINT"   4 = [211]UBSCRIPT
  47. 370 [153]"   5 = RIGHT$TALIC
  48. 380 PRINT"   6 = [197]XPANDED [201]TALIC
  49. 390 [153]"   7 = LENONDENSED RIGHT$TALIC
  50. 400 PRINT"   8 = [211]UPERSCRIPT [201]TALIC
  51. 410 [153]"   9 = (null)UBSCRIPT RIGHT$TALIC
  52. 420 FOR A=0TO6:L$(A)=" ":PRINT"[212]EXT FOR LINE "A;:INPUT L$(A)
  53. 430 PRINT"[198]ONT FOR LINE "A;:INPUT F$(A)
  54. 440 IFVAL(F$(A))>9THEN430
  55. 450 NEXT
  56. 460 NL$=" ":INPUT"[206]UMBER OF LABELS";NL$:NL=VAL(NL$)
  57. 470 IF NL=0THEN900
  58. 490 IFLCTHEN510
  59. 500 OPEN8,8,8,G$+",P,R":GET#8,A$:CLOSE8
  60. 501 IFSTTHENLC=0:PRINT"     [193] [196]ISK [197]RROR HAS OCCURED.":GOSUB850:GOTO500
  61. 502 LC=-1:LOAD G$,8,1
  62. 510 IFFOTHEN670
  63. 650 FO=-1:OPEN5,4,8
  64. 660 OPEN4,4,5:PRINT#4,CHR$(27);CHR$(65);CHR$(8)
  65. 670 FOR E=1 TO NL
  66. 680 FOR A=0TO6:PRINT#4,CHR$(27);CHR$(76);CHR$(88);CHR$(0);:C=21760+(A*88):D=C+87
  67. 690 FOR B=CTOD:PRINT#4,CHR$(PEEK(B));:NEXT
  68. 700 PRINT#4," "FS$(VAL(F$(A)));:PRINT#5,L$(A):PRINT#4,EL$:NEXT
  69. 710 PRINT#5,CHR$(10);CHR$(10)
  70. 720 NEXT:GOTO460
  71. 750 OPEN8,8,0,"$0":N$=CHR$(0):X$=N$
  72. 760 GET#8,A$,A$,A$,A$,A$,A$
  73. 770 GET#8,A$:IF A$=""THEN790
  74. 780 X$=X$+A$:GOTO770
  75. 790 PRINT"    " X$
  76. 810 GET#8,A$,A$:IF A$=""THEN CLOSE 8:GOTO850
  77. 820 GET#8,A$,B$:B$=STR$(ASC(A$+N$)+ASC(B$+N$)*256)
  78. 830 GET#8,A$:IF A$=""THEN PRINT"  "B$:B$="":GOTO810
  79. 840 B$=B$+A$:GOTO830
  80. 850 CLOSE8:PRINT"[199]RAPHIC [198]ILE [206]AME ($ FOR [196]IRECTORY)"
  81. 880 INPUT G$:IF G$="$"THENGOSUB750:GOTO850
  82. 890 RETURN
  83. 900 PRINT"[193] NEW LABEL ([217]/[206])?"
  84. 910 GETA$:IFA$="Y"ORA$="[217]"THEN950
  85. 920 IF A$="N"ORA$="[206]"THEN1000
  86. 930 GOTO910
  87. 950 PRINT"[211]AME [199]RAPHIC ([217]/[206])?"
  88. 960 GETA$:IFA$="Y"ORA$="[217]"THEN260
  89. 970 IF A$="N"ORA$="[206]"THEN240
  90. 980 GOTO960
  91. 1000 IF FO THEN PRINT#4,E$;CHR$(64):CLOSE4:CLOSE5
  92.